home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / UTILITY / TASEXAM6.ARJ / TOOMBS1.TAS < prev    next >
Text File  |  1991-04-21  |  3KB  |  96 lines
  1. {Date:  11-Apr-91 22:19 PDT
  2.  From:  Dan Lucey [73116,3033]
  3.  Subj:  Toombs Stochastic
  4.  
  5. Martin -
  6.  
  7. Certainly.  But you must admit that my programming is certainly UNIQUE!
  8.  
  9. I have added the SAR to that program and it has improved the performance.
  10. If the SAR is below the cost line, it equals 1; if the SAR is above the cost
  11. line, it equals -1.
  12.  
  13. Buy is now  Toombs = 2 and SAR = 1.
  14.  
  15. Sell is now Toombs = -1 and SAR = -1.
  16.  
  17. Here is a working copy.
  18.  
  19.                Dan Lucey
  20. } 
  21. {-------------------------------------------------------------------------}
  22.  
  23. #max_quotes 200
  24. #OUTPUT_FILE 'TOOMBS1.LST'
  25. FORM_C_DUMP :=0;
  26. FORM_D_DUMP :=0;
  27. FORM_E_DUMP :=0;
  28. FORM_F_DUMP :=0;
  29. FORM_G_DUMP :=0;
  30. FORM_X_DUMP :=0;
  31. FORM_Y_DUMP :=0;
  32. {-------------------------------------------------------------------------
  33. -}
  34. FORML_A : Array;
  35. FORML_A := mov(stoch(20,1),5,'E');            {Formula #28}
  36. {-------------------------------------------------------------------------
  37. -}
  38. FORML_B : Array;
  39. FORML_B := mov(mov(stoch(20,1),5,'E'),5,'E');      {Formula #29}
  40. {-------------------------------------------------------------------------
  41. -}
  42. If FORML_B[0] >= 84 then                      {Formula #30}
  43.    FORM_C_DUMP := 1;
  44.    else
  45.    FORM_C_DUMP := 0;
  46. {-------------------------------------------------------------------------
  47. -}
  48. FORM_X_DUMP := FORML_B[0] - FORML_A[0];
  49. {-------------------------------------------------------------------------
  50. -}
  51. If FORML_B[0] < 70 and (FORM_X_DUMP >= 4) then
  52.    FORM_D_DUMP := 2;
  53.    else                                       {Formula #31}
  54.    FORM_D_DUMP := 0;
  55. {-------------------------------------------------------------------------
  56. -}
  57. FORM_E_DUMP = FORM_C_DUMP + FORM_D_DUMP;      {Formula #32}
  58. {-------------------------------------------------------------------------
  59. -}
  60. If FORML_B[0] > 30 and (FORM_X_DUMP <= -4) then
  61.    FORM_F_DUMP := -1;
  62.    else                                       {Formula #33}
  63.    FORM_F_DUMP := 0;
  64. {-------------------------------------------------------------------------
  65. -}
  66. FORM_G_DUMP := FORM_E_DUMP + FORM_F_DUMP;     {Formula #34}
  67. {-------------------------------------------------------------------------
  68. -}
  69. {Test program to determine if SAR can be used with TOOMBS STOCHASTIC}
  70. T_SAR : Array;
  71. T_SAR :=SAR(.02,.20);
  72. {------------------------------------------------------------------------}
  73. If (T_SAR[0] < C[0]) then
  74.    FORM_Y_DUMP := 1;
  75. else
  76.    FORM_Y_DUMP := -1;
  77. {-------------------------------------------------------------------------
  78. }
  79. If first_ticker then
  80. begin
  81. Writeln('Tick    Name                  Close    Toombs   SAR    Action');
  82. Writeln(' ');
  83. end;
  84. begin
  85. Write(TICKER,FULLNAME,'\t',C,'  ',Int(FORM_G_DUMP),'  ',Int(FORM_Y_DUMP));
  86. If ((Int(FORM_G_DUMP) = 2) and (Int(FORM_Y_DUMP)= 1)) then
  87. Writeln('    ***BUY***  ')
  88. else
  89. If ((Int(FORM_G_DUMP) = -1) and (Int(FORM_Y_DUMP) = -1)) then
  90. Writeln('    ***SELL*** ')
  91. else
  92. Writeln('               ');
  93. end;
  94.  
  95. {--------------------END TOOMBS.TAS-------------------------------------}
  96.